home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4626 / book4 / book4.bas (.txt)
Atari STOS Basic  |  1987-04-21  |  6KB  |  135 lines
  1. 10 REM ---ADDRESS BOOK
  2. 100 REM --OPEN SECOND WINDOW AND ENTER OPTIONS"
  3. 1000 REM --FIND A FILE
  4. 1010 IF
  5. 1020 LOCATE
  6. 1030 REM --LOOK FOR FIRST THREE LETTERS OF N$ IN NAME$ ARRAY
  7. 1040 VARNAME
  8. 1050 VARNAME
  9. 1060 INC
  10. 1070 UNTIL
  11. 1080 REM --IF THE FILE IS'NT FOUND THEN GO BACK TO INPUT
  12. 1090 IF
  13. 110 WINDOPEN
  14. 1100 REM --FILE FOUND SO PRINT INFO
  15. 1110 LOCATE
  16. 1120 LOCATE
  17. 1130 LOCATE
  18. 1140 LOCATE
  19. 1150 LOCATE
  20. 1160 LOCATE
  21. 1170 LOCATE
  22. 1180 LOCATE
  23. 1190 REM --ASK USER IF HE WANTS TO CONTINUE THE LISTING
  24. 120 LOCATE
  25. 1200 QWINDOW
  26. 1210 IF
  27. 1220 IF
  28. 130 LOCATE
  29. 140 LOCATE
  30. 150 LOCATE
  31. 160 LOCATE
  32. 170 LOCATE
  33. 180 REM --OPEN THIRD WINDOW FOR PROGRAM INFO
  34. 190 WINDOPEN
  35. 20 KEY
  36. 200 CENTRE
  37. 210 REM --LEAVE WINDOW AND GOTO SCREEN
  38. 220 QWINDOW
  39. 230 REM --PRINT FIELD NAMES
  40. 240 LOCATE
  41. 250 LOCATE
  42. 260 LOCATE
  43. 270 LOCATE
  44. 280 LOCATE
  45. 290 LOCATE
  46. 30 REM --SET UP ARRAYS FOR FILE INFO
  47. 300 LOCATE
  48. 3000 REM --CLEAR INFO OFF SCREEN
  49. 3010 WAIT
  50. 3020 LOCATE
  51. 3030 LOCATE
  52. 3040 LOCATE
  53. 3050 LOCATE
  54. 3060 LOCATE
  55. 3070 LOCATE
  56. 3080 LOCATE
  57. 3090 RETURN
  58. 310 LOCATE
  59. 3100 VARNAME
  60. 320 REM --WAIT FOR AN INPUT
  61. 330 VARNAME
  62. 340 REM --CHECK WHICH KEY HAS BEEN PRESS
  63. 350 IF
  64. 360 IF
  65. 370 IF
  66. 380 IF
  67. 390 IF
  68. 40 DIM
  69. 400 IF
  70. 410 VARNAME
  71. 420 REM ---CREATE A FILE
  72. 430 CURS
  73. 440 REM --GET SURNAME
  74. 450 VARNAME
  75. 460 REM --GET NAME
  76. 470 VARNAME
  77. 480 REM --GET ADDRESS
  78. 490 VARNAME
  79. 50 REM --SET UP VARIBLES
  80. 500 REM --GET TOWNS
  81. 510 VARNAME
  82. 520 REM --GET POSTCODE
  83. 530 VARNAME
  84. 540 REM --GET PHONE NUMBER
  85. 550 VARNAME
  86. 560 REM --GET INFO
  87. 570 VARNAME
  88. 580 REM --FILE CREATED SO GO BACK AND WAIT FOR NEXT INPUT
  89. 590 VARNAME
  90. 60 VARNAME
  91. 600 REM --DELETE A FILE
  92. 610 IF
  93. 620 LOCATE
  94. 630 REM --LOOK FOR FIRST THREE LETTERS OF N$ IN NAME$ ARRAY
  95. 635 VARNAME
  96. 640 VARNAME
  97. 650 INC
  98. 660 UNTIL
  99. 670 REM --IF THE FILE IS'NT FOUND THEN GO BACK TO INPUT
  100. 680 IF
  101. 690 REM --FILE FOUND SO PRINT INFO
  102. 70 REM --OPEN FIRST WINDOW AND ENTER TITLE"
  103. 700 LOCATE
  104. 710 LOCATE
  105. 720 LOCATE
  106. 730 LOCATE
  107. 740 LOCATE
  108. 750 LOCATE
  109. 760 LOCATE
  110. 770 LOCATE
  111. 780 REM --ASK USER IF HE WANTS TO DELETE THE FILE
  112. 790 QWINDOW
  113. 80 WINDOPEN
  114. 800 IF
  115. 810 REM --DELETE FILE AND SORT THEM INTO ORDER
  116. 820 FOR
  117. 830 VARNAME
  118. 840 VARNAME
  119. 850 VARNAME
  120. 860 VARNAME
  121. 870 VARNAME
  122. 880 VARNAME
  123. 890 VARNAME
  124. 90 CDOWN
  125. 900 NEXT
  126. 910 REM --GO BACK TO OPTIONS
  127. 920 QWINDOW
  128. 930 REM --INPUT ROUTINE
  129. 940 LOCATE
  130. 950 INPUT
  131. 960 IF
  132. 970 RETURN
  133. 980 REM 
  134. 990 REM 
  135.